Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/GRAPHICS/IMGLIB95/UIMAGE.DF_/UIMAGE.DF/UIMAGE.txt

Text File | 1996-03-31 | 21KB | 939 lines

object ViewImageForm: TViewImageForm
  Left = 81
  Top = 101
  Width = 633
  Height = 470
  ActiveControl = DirectoryListBox1
  Caption =
    'Imagelib user'#39's example. In stretching mode use the right mouse ' +
    'button to Zoom'
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object QualityLabel: TLabel
    Left = 551
    Top = 326
    Width = 58
    Height = 13
    Caption = 'JPG Quality '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object SmoothLabel: TLabel
    Left = 551
    Top = 363
    Width = 62
    Height = 13
    Caption = 'JPG Smooth '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 536
    Top = -2
    Width = 30
    Height = 15
    AutoSize = False
    Caption = 'Width'
  end
  object Label10: TLabel
    Left = 536
    Top = 30
    Width = 32
    Height = 15
    AutoSize = False
    Caption = 'Height'
  end
  object Label11: TLabel
    Left = 536
    Top = 62
    Width = 65
    Height = 15
    AutoSize = False
    Caption = 'Bits per pixel'
  end
  object Label12: TLabel
    Left = 536
    Top = 97
    Width = 31
    Height = 15
    AutoSize = False
    Caption = 'Planes'
  end
  object Label13: TLabel
    Left = 536
    Top = 130
    Width = 32
    Height = 15
    AutoSize = False
    Caption = 'Colors'
  end
  object Label14: TLabel
    Left = 536
    Top = 163
    Width = 27
    Height = 15
    AutoSize = False
    Caption = 'Type'
  end
  object Label15: TLabel
    Left = 536
    Top = 197
    Width = 64
    Height = 15
    AutoSize = False
    Caption = 'Compression'
  end
  object Label8: TLabel
    Left = 536
    Top = 232
    Width = 20
    Height = 15
    Caption = 'Size'
  end
  object Label1: TLabel
    Left = 8
    Top = 9
    Width = 53
    Height = 15
    Caption = 'Image Text'
  end
  object Label2: TLabel
    Left = 154
    Top = 296
    Width = 94
    Height = 14
    Caption = 'Enabled with strecth'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Gauge1: TGauge
    Left = 192
    Top = 259
    Width = 329
    Height = 17
    BorderStyle = bsNone
    ForeColor = clNavy
    BackColor = clBtnFace
    Progress = 0
  end
  object Label3: TLabel
    Left = 538
    Top = 286
    Width = 83
    Height = 15
    Caption = 'Tif Compression'
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 271
    Width = 145
    Height = 21
    Color = clTeal
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 157
    Width = 145
    Height = 110
    Color = clTeal
    ItemHeight = 16
    TabOrder = 1
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 8
    Top = 53
    Width = 145
    Height = 97
    Color = clTeal
    ItemHeight = 16
    Mask = '*.gif;*.jpg;*.pcx;*.bmp;*.wmf;*.ico;*.scm;*.png;*.cms;*.tif'
    ShowGlyphs = True
    TabOrder = 2
    OnChange = FileListBox1Change
  end
  object QualitySpin: TSpinEdit
    Left = 557
    Top = 340
    Width = 49
    Height = 22
    Hint = '0 to 100 for jpeg saving quality'
    AutoSize = False
    Color = clTeal
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Value = 25
    OnChange = QualitySpinChange
  end
  object Smoothspin: TSpinEdit
    Left = 557
    Top = 379
    Width = 49
    Height = 22
    Hint = '0 to 100 for jpeg smoothing quality'
    AutoSize = False
    Color = clTeal
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Value = 0
    OnChange = SmoothspinChange
  end
  object GroupBox1: TGroupBox
    Left = 253
    Top = 289
    Width = 140
    Height = 134
    Hint = 'Resolution to upscale/downscale the images to be read'
    Caption = 'Read resolution'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    object res4: TRadioButton
      Left = 8
      Top = 57
      Width = 105
      Height = 17
      Caption = '4 bit (16 colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = resClick
    end
    object res24: TRadioButton
      Left = 8
      Top = 96
      Width = 105
      Height = 17
      Caption = '24 bit (true color)'
      TabOrder = 1
      OnClick = resClick
    end
    object res8: TRadioButton
      Left = 8
      Top = 77
      Width = 105
      Height = 17
      Caption = '8 bit (256 colors)'
      TabOrder = 2
      OnClick = resClick
    end
    object res4System: TRadioButton
      Left = 8
      Top = 37
      Width = 128
      Height = 17
      Caption = '4 bit (16 System colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = resClick
    end
    object resAuto: TRadioButton
      Left = 8
      Top = 114
      Width = 105
      Height = 17
      Caption = 'Automatic'
      Checked = True
      TabOrder = 4
      TabStop = True
      OnClick = resClick
    end
    object res1: TRadioButton
      Left = 8
      Top = 16
      Width = 111
      Height = 17
      Caption = '1 bit (MonoChrome)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = resClick
    end
  end
  object Edit1: TEdit
    Left = 536
    Top = 12
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
  end
  object Edit2: TEdit
    Left = 536
    Top = 44
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 8
  end
  object Edit3: TEdit
    Left = 536
    Top = 78
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
  end
  object Edit4: TEdit
    Left = 536
    Top = 112
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object Edit5: TEdit
    Left = 536
    Top = 145
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object Edit6: TEdit
    Left = 536
    Top = 179
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 12
  end
  object Edit7: TEdit
    Left = 536
    Top = 213
    Width = 80
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
  end
  object Edit8: TEdit
    Left = 536
    Top = 247
    Width = 81
    Height = 19
    AutoSize = False
    Color = clNavy
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 15
  end
  object GetInfoChecked: TCheckBox
    Left = 543
    Top = 269
    Width = 74
    Height = 17
    Caption = 'Image Info'
    State = cbChecked
    TabOrder = 14
    OnClick = GetInfoCheckedClick
  end
  object ScrollBar1: TScrollBar
    Left = 180
    Top = 21
    Width = 9
    Height = 238
    Hint = 'Message speed'
    Kind = sbVertical
    Max = 11
    ParentShowHint = False
    Position = 5
    ShowHint = True
    TabOrder = 17
    Visible = False
    OnChange = ScrollBar1Change
  end
  object CheckBox2: TCheckBox
    Left = 557
    Top = 405
    Width = 53
    Height = 18
    Caption = 'Dither'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 18
    OnClick = CheckBox2Click
  end
  object BitBtn5: TBitBtn
    Left = 8
    Top = 294
    Width = 145
    Height = 21
    Hint = 'Load an Image from a resource'
    Caption = 'Load from resource'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 22
    OnClick = BitBtn5Click
    Style = bsNew
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 314
    Width = 145
    Height = 20
    Hint = 'Create a credit message using the message editor'
    Caption = 'Create Scroll Message'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    OnClick = BitBtn1Click
    Style = bsNew
  end
  object BitBtn2: TBitBtn
    Left = 8
    Top = 333
    Width = 145
    Height = 21
    Hint = 'Create a scrolling message using the message editor'
    Caption = 'Create Credit Message'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    OnClick = BitBtn2Click
    Style = bsNew
  end
  object BitBtn4: TBitBtn
    Left = 8
    Top = 353
    Width = 145
    Height = 22
    Hint = 'Create a scrolling message on the fly'
    Caption = 'Scrolls on the Fly'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 21
    OnClick = BitBtn4Click
    Style = bsNew
  end
  object BitBtn3: TBitBtn
    Left = 8
    Top = 374
    Width = 145
    Height = 23
    Hint = 'Create a credit message on the fly'
    Caption = 'Credits on the Fly'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 20
    OnClick = BitBtn3Click
    Style = bsNew
  end
  object Scanning: TBitBtn
    Left = 8
    Top = 396
    Width = 145
    Height = 23
    Hint = 'Scan an Image using Twain'
    Caption = 'Twain Scan Image'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 23
    OnClick = Scan1Click
    Style = bsNew
  end
  object GroupBox2: TGroupBox
    Left = 395
    Top = 289
    Width = 142
    Height = 133
    Hint = 'Resolution to upscale/downscale the images to be saved'
    Caption = 'Save resolution'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 24
    object SaveRes4: TRadioButton
      Left = 8
      Top = 36
      Width = 105
      Height = 17
      Caption = '4 bit (16 colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SaveResClick
    end
    object SaveRes24: TRadioButton
      Left = 8
      Top = 75
      Width = 105
      Height = 17
      Caption = '24 bit (true color)'
      TabOrder = 1
      OnClick = SaveResClick
    end
    object SaveRes8: TRadioButton
      Left = 8
      Top = 56
      Width = 105
      Height = 17
      Caption = '8 bit (256 colors)'
      TabOrder = 2
      OnClick = SaveResClick
    end
    object SaveResJpegGray: TRadioButton
      Left = 8
      Top = 94
      Width = 110
      Height = 17
      Caption = 'JPeg GrayScale'
      TabOrder = 3
      OnClick = SaveResClick
    end
    object SaveRes4System: TRadioButton
      Left = 8
      Top = 16
      Width = 130
      Height = 17
      Caption = '4 bit (16 System colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = SaveResClick
    end
    object SaveResAuto: TRadioButton
      Left = 8
      Top = 114
      Width = 105
      Height = 17
      Caption = 'Automatic'
      Checked = True
      TabOrder = 5
      TabStop = True
      OnClick = SaveResClick
    end
  end
  object CheckBox3: TCheckBox
    Left = 191
    Top = 1
    Width = 113
    Height = 17
    Caption = 'Fit Image (Stretch)'
    State = cbChecked
    TabOrder = 25
    OnClick = SstretchOnOff
  end
  object CheckBox4: TCheckBox
    Left = 424
    Top = 1
    Width = 106
    Height = 17
    Hint = 'Use the ImageLib way to paint (Delphi Bug Fix)'
    Caption = 'ImageLib Palette'
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 26
    OnClick = CheckBox4Click
  end
  object ScrollBox1: TScrollBox
    Left = 192
    Top = 21
    Width = 334
    Height = 239
    BorderStyle = bsNone
    TabOrder = 27
    object MultiImage1: TPMultiImage
      Left = -8
      Top = 0
      Width = 329
      Height = 238
      AutoSize = True
      Center = True
      Color = clBtnFace
      Font.Color = clRed
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ImageName = 'file not found'
      ImageDither = True
      ImageReadRes = lAutoMatic
      ImageWriteRes = sAutoMatic
      TifSaveCompress = sNONE
      JPegSaveQuality = 25
      JPegSaveSmooth = 0
      OnClick = MultiImage1Click
      OnMouseDown = MultiImage1MouseDown
      OnMouseMove = MultiImage1MouseMove
      OnMouseUp = MultiImage1MouseUp
      ParentFont = False
      Stretch = True
      TextShadow = True
      TextShadowColor = clNavy
      TextLeft = 160
      TextTop = 50
      TextRotate = 45
      TabOrder = 0
      TabStop = False
    end
  end
  object Edit10: TEdit
    Left = 9
    Top = 25
    Width = 120
    Height = 23
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 28
  end
  object BitBtn7: TBitBtn
    Left = 131
    Top = 25
    Width = 22
    Height = 21
    Hint = 'Send text to image window'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 29
    OnClick = BitBtn7Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FF3333333333333447333333333333377FFF33333333333744473333333
      333337773FF3333333333444447333333333373F773FF3333333334444447333
      33333373F3773FF3333333744444447333333337F333773FF333333444444444
      733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
      999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
      33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
      333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
      33333777333333333333CC3333333333333377333333333333330000}
    NumGlyphs = 2
  end
  object Button3: TButton
    Left = 152
    Top = 314
    Width = 97
    Height = 20
    Caption = 'Flip'
    TabOrder = 30
    OnClick = Button3Click
  end
  object Button2: TButton
    Left = 152
    Top = 333
    Width = 97
    Height = 21
    Caption = 'Rotate'
    TabOrder = 31
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 152
    Top = 353
    Width = 97
    Height = 22
    Caption = 'Reset'
    TabOrder = 32
    OnClick = Button4Click
  end
  object SaveButton: TBitBtn
    Left = 152
    Top = 374
    Width = 97
    Height = 45
    Caption = 'Save'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = SaveButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
      03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
      30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
      07807F777733337F7F3707888887880808807F333333337F7F37077777778800
      08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
      33003777737777333377333080333333333333F7373333333333300803333333
      33333773733333333333088033333333333373F7F33333333333308033333333
      33333737333333333333330333333333333333733333333333330000}
    Layout = blGlyphTop
    NumGlyphs = 2
    Style = bsNew
  end
  object CheckBox1: TCheckBox
    Left = 309
    Top = 0
    Width = 108
    Height = 17
    Caption = 'Stretch with ratio'
    TabOrder = 33
    OnClick = SstretchRatioOnOff
  end
  object TiffCombo: TComboBox
    Left = 541
    Top = 301
    Width = 79
    Height = 23
    Color = clTeal
    ItemHeight = 15
    Items.Strings = (
      'NONE'
      'CCITT'
      'LZW'
      'PACKBITS')
    TabOrder = 34
    Text = 'NONE'
    OnChange = TiffComboChange
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsComboBox
    Filter = 'jpeg|*.jpg|bmp|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png|tif|*.tif'
    Options = [ofOverwritePrompt]
    Title = 'Save as '
    Left = 276
    Top = 20
  end
  object MainMenu1: TMainMenu
    Left = 244
    Top = 20
    object N1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object O1: TMenuItem
        Caption = '&Open'
        ShortCut = 0
        OnClick = O1Click
      end
      object OpenUsingThumbnails1: TMenuItem
        Caption = 'Open Using Thumbnails'
        ShortCut = 0
        OnClick = OpenUsingThumbnails1Click
      end
      object N2: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = SaveButtonClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object SelectScanner1: TMenuItem
        Caption = 'Select Scanner Source'
        ShortCut = 0
        OnClick = SelectScanner1Click
      end
      object Scan1: TMenuItem
        Caption = 'Scan Image'
        ShortCut = 0
        OnClick = Scan1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 0
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print &Setup'
        ShortCut = 0
        OnClick = PrintSetup1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CreateMessage1: TMenuItem
        Caption = '&Create Scroll Message'
        ShortCut = 0
        OnClick = BitBtn1Click
      end
      object CreateCreditMessage1: TMenuItem
        Caption = 'C&reate Credit Message'
        ShortCut = 0
        OnClick = BitBtn2Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object LoadresourcefromDelphiExe1: TMenuItem
        Caption = 'Load resource from Delphi.Exe'
        ShortCut = 0
        OnClick = BitBtn6Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object E1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = E1Click
      end
    end
    object Edit9: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = '&Cut'
        ShortCut = 0
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'C&opy'
        ShortCut = 0
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 0
        OnClick = Paste1Click
      end
    end
    object A1: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = A1Click
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsComboBox
    Filter =
      'jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png|scroll|*.s' +
      'cm|credit|*.cms|metafile|*.wmf|icon|*.ico|tif|*.tif|all images|*' +
      '.jpg;*.bmp;*.gif;*.pcx;*.wmf;*.ico;*.png;*.scm;*.cms;*.tif'
    Options = [ofReadOnly]
    Title = 'Open images'
    Left = 210
    Top = 20
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 303
    Top = 20
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums, poSelection, poWarning]
    PrintRange = prSelection
    Left = 332
    Top = 20
  end
  object ThumbPreview1: TThumbPreview
    AutoLoad = True
    Title = 'Image Preview'
    DataFileName = 'thumbs.dat'
    DataFileDir = 'D:\BORLAND\DELPHI 2.0\BIN\'
    PreviewsDir = 'D:\BORLAND\DELPHI 2.0\BIN\'
    Left = 358
    Top = 20
  end
end